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ae 
Version V02-014 


PARRAARASAAAAAAAAAAALAALALA AAA ALALALASALE LESSEE R EERE REAR EEE RARER ELSA RRR R REARS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


wv 
® 
tt 
oa 
* 
THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN, ACCORDANCE WITH THE TERMS UCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NO TICE. THIS SOFTWARE OR “ANY OTHER 
COPIES. THEREOF MAY NOT GE PROVIDED OR OTHERWISE MADE AVATLABLE TO ANY = 
{s OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTUARE TS, HEREGY 
{* TRANSFERRED. ‘ 
® 
i 
® 
a 
® 
® 
a 
* 
te 
® 


@eneeneeeene 


® 
{: THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
te pePOkat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


{* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
¢ SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
{Sesseseesussssessssususssssssnsnsnesnaneeneneaneneneenensenensencosencosen® 
¢ MODIFIED BY: 

{ v02-014 PCG0004 Peter George 07-Jan-1982 
{ Add HELP flag to HLP. 

{ v02-013 PCG0003 Peter Soar ge 09-Dec-1981 
; Add LIBLIST and NOTTERM flag to HL 

{ v02-012 RPGO112 Bob Grosso 11-Aug-1981 
t Support lower cased keywords 

{ v02-011 PG0037 Bob Grosso 20-Jul-1981 
} Add siete sasel 

{ v02-010 RPG0036 Bob Grosso 15-Jul-1981 
t Add lLbr$l_oldhdrptr. 

¢ v02-009 RPGOO35 Bob Grosso 1-Jul-1981 
t Change Lhi$w.*luhrec to Lhi$l_*luhrec. 

{ v02-008 PG0034 Bob Grosso 18-Jun-1981 
{ Change tnist _tluhrec to Lhi$w_*luhre 

? Change lLbr$c_maxluhlen to Lbr$c “pax lunrec = 32768. 

{ v02-007 PCG0002 Peter George 19-May-1981 
{ Add PMPTDEF flag to HLP. 

f v02-006 PCG0001 Peter George 08-May-1981 
; Add lbr$output_help stuff. 
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v02-005 0033 Bob Sp add be 3 
1 | Lbrse fo Py Lhi$l hn WG Lhi$l_numluhrec, 
hi$l_LibStatus and cre$l_Tuhmax. 
v02-004 4 f Bob Grosso 20-Mar-1981 
Add wy eo dxrd 
v02-003 Bob Grosso 25-Feb-1981 
Rename ur ; yf FE to lbr$c_putbufsiz 
v02-002 RPGOO12 Bob Grosso 19-Jan-1981 
Add Ubrstlosh operation codes, and sizes for the buffers to 
empty the cache. 
{ v02-001 L$0029 Benn Schreiber 22-Dec-1980 
¢ aig shareable image symbol table type. 
{ Librarian control table 
module SLBRCTLTBL; 
meat LOAC TY TOL Fae prefix LBRS$; 
te unsi gre /* Control table ID 
constant CTL ari6 equals 203 prefix LBR tag $C; /* Ident for control table 

TBLSIZ byte unsigned; /* Control table size 
TYPE byte unsigned; ° Type of Library opened 
FUNC byte unsigned; + Operation (function) requested 
FILL_1 byte Gimkensien 2 fill prefix LBRCTLTBL tag $$. /* Reserved extra bytes 
USRFCG_ OVERLAY union; 

USRFLG BITS str unsigned; /* Flags longword 
UsRFLG ath stcycture: 
bitfield mask; /* Use “‘lLocate’’ rather than ‘'move'’ mode 
ie OPEN bigtiels mask; /* Library open 
end USRFLG ROVERCAY: 

HDRPTR Longword unsigned; /* Pointer to in-core header 
CTXPTR Longword unsigned; /* Pointer to context control block 
CURIDX ponpeere une toned; /* Number of current index 

USRNAM Longword unsigned; /* Pointer to user NAM block 
OLDHDRPTR on word uns igne d; /* Pointer to unmodified Trecere header block 


constant ‘LEN equals . prefix LBRS$ tag K; 
constant “LENGTH equals . prefix LBR$ tag C: 


end LBRCTLTBL; 
end_module $LBRCTLTBL; 
module SMHDDEF; 


/ 
i Module header 
he 


aggregate MHDDEF structure prefix MHDS; 
RFLAG byte bate 
1D byte unsi 3 
sons ent MHD D. qque ls 173 is MHD tag SC; 
FILL.1 word fill pref : — g $$; 
REFCNT Longword unsign 
constant REFLNG equa ¥ ° + retin aad tag K; 
constant REFLNG equals . prefix MHDS tag C; 
constant eur equals . prefix MHDS tag K; 
constant INSTIME — » prefix MHDS tag C; 


ned; 
FILL_2_ OVERLAY unio + 
ICL.2 longword fill prefix MHDDEF Fog $$; 
sanetant USRDAT equals . prefix ag K; 
gpretens USRDAT equals . Oretix MHDS ten c3 
FILL ef HgLDS structure 


GERDRT orestes Length 0 ta 

constant MHDLEN equals . prefix MHDS tag Gi: 
Fonatens MHDLEN equals . prefix MHD$ tag C 
FILL_2 FIELDS; 


end OB ISTAT BIT 
end OBJSTAT_OVERLAY; 
OBJIDLNG_OVERLAY Ave 
OBJIBLNG byte unsigned; 
veal 3 (1 NG_FIELDS structure; 
FILL~4 byte fill prefix MHDDEF tag $$; 
OBJIBENT character Length Ot tag! 
constant OBJIDENT equals . pre ix’ MHDS tag K 


end OBJIDLNG FIELDS; 
ond OBJ IDLNG OVERLAY; 
end MHDDEF ; 
end_module SMHDDEF ; 


module SHLPDEF ; 


/t 
ie Data structures for help processing 


te dimension . fill preres MHDDEF tag $$; 
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/* Librarian-controlled flag byte 
Ident 


/ 
/* Value that must be in the ident 
/* Reserved word 

/* Reference count 

/* Length of record to end of ref count 
/* Length of record to end of ref count 
/* Label for start of insert time 

/* Label for start of insert time 

/* Date/time inserted 


/* Start of user additional header data 
/* Start of user additional header data 


* Start of user rg th hy a header data 
ie Length of fixed part of MHD 
; /* Length of fixed part of MHD 


/* Status of object module 


/* Selective search 
/* Module contains TIR records 


/* Length of ident 


aoe Object module ident 


constant OBJIDENT equals . prefix MHD$ tag C;/* 


/* renee enabled 
/* Process logical name table searches enabled 


| 
— 


/t 


end HLPDEF 


constani TYP_HLP equals 
constant TYP_TXT equals 
constant TYP_SHSTB equals : prefix LBR tag $C; 
constant TYP_DECMX equals 

constant TYP_RDEC 


constant TYP_USRLW equals 128 prefix LBR tag $C; 
constant TYP_USRHI equals 2 


/* 
pn Function codes for lbr$flush 
os 


LBRUSR.SDL;1 
GROUP bitfield mask; 
SYSTEM bittield mask 
LIBLIST bitfield mask; 
HELP bitfield mask; 
SPARE] bitfield mask; 
SPARE2 bitfield mask; 
PAGE bitfield mask; 
OUTPUT bitfield mask; 
LIBRARY bitfield mask; 
LL bitfield mask; 
PAGEDEF bitfield mask; 
PMPTDEF bittield mask; 
NOTTERM bitfield mask; 
ond HLPDEF _BITS; 


aggre ate HLPDEF1 structure prefix HLP$; 
DESC longword unsigned; 


FCAGS Longword unsigned; 
™ 


FLAGS BIT 
NOHLPTXT bitfield mask; 


KEYNAMLIN bitfield mask; 


end_module SHLPDEF ; 
module $LBRDEF; 


. Types of Libraries 
* 


prefix LBR tag $C; 
prefix LBR tag $C; 


constant TYP_UNK equals 0 prefix LBR tag $C; 

constant TYP_OBJ equals 1 prefix LBR tag $C; 

constant TYP_MLB equals § prefix LBR tag $C; 
4 


prefix LBR bag $c; 
equals 127 prefix LBR tag $C; 


prefix LBR tag $C; 


/* 
/*t 
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Group logical name table searches enabled 
System logical name table searched enabled 
Output List of default Libraries 

Display help on help before List of topics 


Page breaks enabled 

Output Listing file enabled 

Main Beabet specified by user 

Some logical name table searches enabled 
Page fla Co floy\ ting disabled 

Prompt flag defaulting disabled 

Input device is not a terminal 


Address of string descriptor for Line 
Flags 


Line is part of text due to no help found 
Line contains keynames to be printed 
Line is part of “other info available’ 


Address of user data passed to GET_HELP 
Level of this help 


Define the Library types 
Unknown/unspecified library type 
Object/shareable image Library 
Macro } ibracy 
Hele file library 

TEXT Library 

Shareable image symbol library | 
Maximum Digital library type defined 
Types between DECMX and RDEC are 

reserved to Digital 

peor.) 'erery types range from 128 

rs) . 
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constant FLUSHDATA equals 
constant FLUSHALL equals 


/* 
S Librarian fixed parameters 
e 
constant MAXRECSIZ equals 
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1 refix LBR 
0 Sretin LBR 


ag $C; es 


048 prefix LBR t 

constant PAGESIZE equals 512 prefix LBR tag $C; 
constant HASHSIZE equals 512 prefix LBR tag $C; /* 
constant TEXTPAGE ‘wee 0 prerse LBR tag $C; /* 
constant DEXTQ equals 50 prefix LBR tag $C; /* 
constant MAXCTL one 16 prefix LBR tog $C; /* 
constant MAXHDRS! equals 128 prefix LOR tag SC; - 

® 

/* 


constant DEFENTALL equals 
constant RETRYOPEN equals 
constant RETRYWAIT equals 
constant MINREAD equals 
constant MAXREAD equals 
constant MEMXTRA equals 
constant PUTBUFSIZ equals 
constant FLSHBFSIZ equals 


constant MAXIDXRD equals 2 


constant MAXKEYLEN equals 
constant MAXLUHREC equals 


IC_CTLTBL longword unsigne 
IC_FUNC venguoce unsigned; 


constant CREATE equals 
constant READ equals 
constant UPDATE equals 


constant MAXFUNC equals 


35° prefix LBR tag $C; /* 
30 prefix LBR tag $C; /* 


/* 
128 prefix LBR tag $C; /* 
® 


32768 prefix LBR tag $C;/* 


/t 
: LBRSINI_CONTROL argument List 


aggregate LBRDEF structure prefix LBRS$; 
FiLL_1 longword fill yb LBRDEF tag $$; An 
3 * 


prefix LBR tag $C; /* 
prefix LBR tag $C; /* 


0 
1 
§ prefix LBR tag $C; /* 


prefix LBR tag $C; /* 


IC_TYPE lLongword unsigned; /* 

/* 

a LBRSOPEN argument List 

end LBRDEF; 

oenrgesre LBRDEF1 structure prefix LBRS; 
FILL_2 Longword fill prefix LBRDEF tag $$; /* 
OP_CTLTBL longword yns igned: /* 
OP_FNS Longword unsigned; /* 
OP_CREOPT longword yrs iqned: /* 

ONS longword unsigned; /* 

OP_RLFNA Longword unsigned; /* 


* Number of seconds to wa 


cks from cache 
cks, then index blocks 


oo 
-o 
oo 


Maximum record size allowed 
Size of —s page 
Size of hash table ** Must be power of 2 ** 
No. of useable bytes on a text page 
Library default extend quantity 
Maximum number of open Libraries 
Maximum Length of module header 
(max_user length is: 
Lor$c_maxhdrsiz-mhd$c_length) 
Number Of entries to allocate by default 
Number of times to noery open on RMS$_FLK 
t between retries 
Minimum number of blocks to read 
Max blocks can ever read 


Number blocks to expand region bY above and beyond Lbr$gl_maxread 
er 


i 
Block size of VM empty cache buf 
Block size of stack mt_cache buffer 
Maximum blocks in one Tndex read 
Maximum Length ef an ASCII keyword, at most N, where 
32(N+7) < or = 506 
maximum Library update history record length 


Argument count 

Control index address 

Function 

Create a new Librar 

Read an apts be Library 

Update an exisiting library 
Maximum legal function 

Type of Library expected to open 


Argument count 

Control index address | 

Address of string descriptor for filename 
Address of create options array $ 
Address of descriptor for default name string 
Address of NAM block for related file 
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a RNS a unsigned; 
OP-RNSLEN longword unsigned; 


/* 
i LBRSCLOSE argument List 


end LBRDEF1; 


sggregete L8 LBRDEF2 atrysrure prefix LBRS; 
pre fill prefix LBRDEF tag $$; 
CL LEriree ongword unsigned; 


/* 
~ LBRSGET_HEADER argument List 


end LBRDEF 2; 


overepete LF LBRDEF3 structure prefix LBRS$; 
longword fill prefix LBRDEF tag $$; 

GH Lent TB ongword unsigned; 

GH-RETARY Longword unsigned; 


/e 
. LBRSSET_INDEX argument List 


end LBRDEF3; 


aggregate. LBRDEF4 structure prefix LBR$; 
longword fill prefix LBRDEF tag $$; 

$I Lene TBL ongword unsigned; 

SI-IDXNUM Longword unsigned; 


fe 
fe LBRSLOOKUP_KEY argument List 


end LBRDEF4; 


overgpete Ls LBRDEFS structure prefix LBRS$; 
Longword fill prefix LBRDEF tag $$; 

LK marae ongword unsigned; 

K-KEYNAM Longword unsigned; 

tke TXTRFA Longword unsigned; 


Je 
je LBRSINSERT_KEY argument List 


end LBRDEFS; 


aggregate LB LBRDEF6 ateys pure prefix LBRS$; 
enguere fill prefix LBRDEF tag $$; 
IK mare ongword unsigned; 
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/* Address of descriptor for related filename strin 


/* Address of longword to store resultant filename String Length 


Argument count 
Control index address 


Argument count 
Address of Control index 


Address of 128-longword array for return info 


Argument count 
Control index address 
Address of index number 


Argument count 
Control index address 


Address of string descriptor or binary value 
0 


Address of quadword to return RFA if 


Argument count 
Cont:ol index address 


und 


CAC 
v04 
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IK_KEYNAM Longword unsigned; /* Address of pacing descriptor or binary value 
IK_TXTRFA Longword unsigned; /* Address of RFA of text 

je 

. LBRSREPLACE_MOD argument List 

/* F L.1 /* Argument count 

/* F AM! CTLTBL.L /* Control index address 

/* f RM_KEYNAM,L /* Address of string descriptor or binary value 

. 4 nee oe /* RFA of new text 

e 


¥ 
aS LBRSREPLACE_KEY argument List 
end LBRDEF6; 


aggregate LBRDEF7 structure prefix LBRS; 

FILL_8 Longword fill prefix LBRDEF tag $$; /* Argument count 

RK_CTLTBL longword unsigned; /* Control index address 
RK_KEYNAM Longword unsigned; /* Address of string descriptor or binary value 
RK_OLDRFA longword unsigned; /* Address of RFA of old text 
RK_NEWRFA Longword unsigned; /* Address of RFA of new text 


/* 
os LBRSDELETE_KEY argument List 


end LBRDEF7; 
aggregate LBRDEF8 structure prefix LBR$; 
FILL_9 Longword fill prefix LBRDEF tag $$; /* Argument count 


DK_CTLTBL [ongword unsigned; /* Control index address _ 
DK_KEYNAM Longword unsigned; /* Address of string descriptor or binary value 


/* 
S LBRSDELETE_DATA argument List 
end LBRDEF8; 
overgpete LBRDEF9 structure prefix LBR$; 
FILL_10 Longword fill prefix LBRDEF tag $$; /* Argument count 


DD_CTLTBL Longword unsigned; /* Control index address 
DD_TXTRFA Longword unsigned; /* Address of RFA to delete from 


/* 
pn LBRSGET_RECORD argument List 


end LBRDEF9; 


aggregate ,Onver't0 structure prefix LBRS$; 
FILL_11 longword fill prefix LBRDEF tag $$; /* Argument count 
GR_CTLTBL Longword unsigned; /* Control index address 
GR_BUFDES longword unsigned; /* Address of descriptor of buffer 


CAC 
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GR_BUFLEN Longword unsigned; 
/* 
. LBRSPUT_RECORD argument List 


end LBRDEF10; 


aggregate gre structure prefix LBR$; 
FILL. 12 longword fill prefix LBRDEF tag $$; 
PR_CTLTBL Longword unsigned; 

PR_BUFDES Longword unsigned; 

PR_TXTRFA Longword unsigned; 


jt 
oe LBRSPUT_END argument List 


end LBRDEF11; 


aggregate apres structure prefix LBRS$; 
FILL_15 longword fill prefix LBRDEF tag $$; 
PE_CTLTBL Longword unsigned; 


/e 
A LBRSSEARCH argument List 


end LBRDEF12; 


aggregate LBRDEF13 structure prefix LBRS$; 
FILL_14 longword fill prefix LBRDEF tag $$; 
SR_CTLTBL Longword unsigned; 

SR_1DX Longword ene tances 

SR_RFA Longword unsigned; 

SR_USRTN Longword unsigned; 


/e 
~ Argument List for user routine called by LBRSSEARCH 
end LBRDEF13; 
sggregaie gr structure prefix LBR$; 
FILL_15 Longword fill prefix LBRDEF tag $$; 


SU_KEYDES longword unsigned; 
SU_TXTRFA Longword unsigned; 


/e 
‘ LBRSGET_INDEX argument List 


end LBRDEF 14; 
aggregate LBRDEF15 structure prefix LBR$; 


/* 


~ 
ae 
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Address of longword to return record size 


Argument count 

Control index address 

Address of descriptor of buffer to output 
Address of quadword to return RFA 

of text record 


Argument count 
Control index address 


Argument count 

Control index address 

Address of index number 

Address of RFA to search index for 
User routine to call on match 


Argument count ? 
Address of string descriptor or binary value 
Address of array containing rfa of module 


CAC 
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LL \¢ lLongword fill revs LBRDEF tag $$; 


F 
G mats 
G1_IDXNUM Longword une toned: 
GI_USRTN Longword unsigned; 


/* 
/* 
/* 
/t 


/* 
. Argument List for user routine called by LBRSGET_INDEX 


end LBRDEF15; 


aggregate BRDEF16 structure prefix LBRS; 

FILL_17 longword fill prefix LBRDEF tag $$; 
GU_KEY lLongword unsigned; 

GU_TXTRFA Longword unsigned; 


/* 
. LBRSADD_UPDATE argument List 


end LBRDEF 16; 


overgpere ‘yr! structure prefix LBRS$; 
FILL.18 Longword fill prefix LBRDEF tag $$; 
AU_CTLTBL Longword unsigned; 

AU_FLAGS Longword unsigned; 

AU_KEYNAM Longword unsigned; 


constant ADDMOD equals 1 prefix LBR tag $C; 
constant DELMOD equals § prefix LBR tag $C; 
prefix LBR tag $C; 


constant REPMOD equals 
/* 
™ LBRSGET_UPDATES argument List 


end LBRDEF17; 


aggregate BRDEF18 structure prefix LBR$; 
FILL_19 longword fill prefix LBRDEF tag $$; 
GU_CTLTBL Longword unsigned; 

GU_USRTN Longword unsigned; 


/e 
“ Argument List for user routine called by LBRSGET_UPDATES 


end LBRDEF 18; 

sggregate BRDEF19 structure prefix LBRS$; 
FILL_20 Longword fill prefix LBRDEF tag $$; 
UU_UPDESC Longword unsigned; 


end LBRDEF19; 


end_module SLBRDEF ; 


~ 
sss 


/* 
/t 


Argument count 

Control index address 

Index number 

User routine to call for each entry 


mn ount 
Address of descriptor or binary value 
RFA of associated text 


Argument count 
Control index address 


ags 

Address of string descriptor or binary value 
Types of operations logge 

Add module 

Delete module 

Replace module 


Argument count 
Control index address 
User routine to call for each update 


Argument List : 
String descriptor for history line 
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module SLHIDEF; 


/* 
- Library header information array offsets 


UPDH 
FREEVBN Longword unsigned; 


end_module SLHIDEF; 
module SCREDEF; 


/* 
S Create options table 


sggregate CREDEF structure prefix CRES$; 
TYPE Longword unsigned; 


KEYLEN longword unsigned; 
ALLOC loneword unsigned; 

IDXMAX Longword unsigned; 
UHDMAX Longword unsigned; 
ENTALL longword unsigned; 
LUHMAX longword unsigned; 
VERTYP Longword unsigned; 
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Library type 
Number of indices 

Library format major id 

Library format minor id 

ASCIC version of Librarian that created 
Creation date/time 


Date/time of Last update 


VBN of start of update history 

Ist logically deleted block 

Number of deleted blocks 

RFA of end of Library 

Spare word, zeroed 

Next VBN to allocate at end of file 

Number of free pre-allocated index blocks 
Listhead for pre-allocated index blocks 
VBN of highest pre-allocated block 

Number of index blocks in use 

Number of index entries (total) 

Number of entries in index 1 (module names) 
Length of user-maintained info in module header 


Maximum number of Library update histories records maintained 


Number of LUH records in history 
False if there was an error closing Lib 


TyP¢ of Library 

srery types defined in SLBRDEF) 
Length of keys in Library 
Initial file allocation 
Maximum number of indices 
Size of additional apdute header data 
Number of index entries to pre-allocate 


Number of torery yecete history records to store 


Version type of library to create 


CAC 
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¢ 
end IDXOPT_OVERLA 


FILL_1 longword d 


end CREDEF; 
end_module SCREDEF; 


constant "LENGTH" 
constant ‘LENGTH’ 
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Y; 
imension 11 fill prefix CREDEF tag $$;/* Reserved 11 lLongwords 
equals . prefix CRE$ tag K; /* 
equals . prefix CRE$ tag C; /* 


constant VMSV equals prefix cre tag $C: /* VAS version y04-000 format 
Fonstent set equals prefix CRE tag SC; /* VAS version 5 format 
DROPT Longuord unsigned; /* Index options 
IDXOPT_BIT structure: 
WORN E CHE bitfield mask; /* Do not upper case the match key 
NOCASENTR bitfield mask; /* Do not upper case the index key when comparing with a match key 
eal rt mask; /* Upper case the index key when entering it into the Library 
constant HCPCASING equals prefix CRE tag $C;/* Treat upper casing as it is for HELP Libs 
constant OBJCASING equals prefix CRE tag $C;/* Treat upper casing as it is for OBJECT Libs 
onstant MACTXTCAS equals prefix CRE tag $C;/* Treat upper casing as it is for MACRO and TEXT Libs 
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